home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / networking / misc / lpr1p0b.lha / lprm < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.4 KB  |  59 lines
  1. /*******************************************************************************************************************
  2. * lprm hostname printername [usernamess] [jobnumbers]
  3. *
  4. * 5) remove job
  5. *    remove by user or by job number
  6. *    syntax: \5printer person [users ...] [jobs ...]\n
  7. *
  8. * users is string
  9. * jobs are integers
  10. *
  11. *******************************************************************************************************************/
  12.  
  13. /************************/
  14. /**CHANGE          HERE**/
  15. /************************/
  16. username = 'utzinger'
  17. /************************/
  18.  
  19. options failat 10
  20.  
  21. signal on halt
  22. signal on ioerr
  23. signal on break_c
  24.  
  25. if arg() < 1 | arg(1) = '?' then call usage 
  26.  
  27. parse arg Hostname PrI Options
  28.  
  29. say 'Removed jobs of printer ' || PrI ' on ' || Hostname  ':'
  30.  
  31. /* Open printer tcp connection  and file to send */
  32.  
  33. If ~Open(pr, 'TCP:' || Hostname || '/printer', 'W') Then Do; Say '*** Service not present'; Exit 10; End
  34.  
  35. /* Init remote printer daemon to remove files */
  36.  
  37. writeln(pr,d2c(5) || PrI || ' ' || username || Options)
  38. thisline = readln(pr)
  39. say thisline
  40. do until eof(pr)
  41.  thisline = readln(pr)
  42.  say thisline
  43. end
  44. call close pr
  45. exit 0
  46.  
  47. /* ----------------------------------------------------------------------- */
  48. /* Error Handling */
  49. halt:
  50. oerr:
  51. reak_c:
  52. exit 10
  53.  
  54. /* ----------------------------------------------------------------------- */
  55. usage:
  56.     say "Usage: lprm hostname printername [usernames] [jobnumbers] "
  57.     say
  58.     exit 0
  59.